
Public Class Disposicion

    Public Shared Function CalcularPuntos(ByVal ancho As Integer, ByVal alto As Integer) As Array
        Dim mat(14, 1) As Integer
        Dim x As Integer
        Dim y As Integer

        '1
        x = ancho / 2
        y = alto / 10
        mat(0, 0) = x
        mat(0, 1) = y

        '2
        x = ancho / 28 * 7
        y = alto / 20 * 17
        mat(1, 0) = x
        mat(1, 1) = y

        '3
        x = ancho / 28 * 21
        y = alto / 20 * 17
        mat(2, 0) = x
        mat(2, 1) = y

        '4
        x = ancho / 28 * 5
        y = alto / 20 * 4
        mat(3, 0) = x
        mat(3, 1) = y

        '5
        x = ancho / 28 * 23
        y = alto / 20 * 4
        mat(4, 0) = x
        mat(4, 1) = y

        '6
        x = ancho / 28 * 3
        y = alto / 20 * 14
        mat(5, 0) = x
        mat(5, 1) = y

        '7
        x = ancho / 28 * 25
        y = alto / 20 * 14
        mat(6, 0) = x
        mat(6, 1) = y

        '8
        x = ancho / 28 * 2
        y = alto / 20 * 10
        mat(7, 0) = x
        mat(7, 1) = y

        '9
        x = ancho / 28 * 26
        y = alto / 20 * 10
        mat(8, 0) = x
        mat(8, 1) = y

        '10
        x = ancho / 28 * 11
        y = alto / 20 * 18
        mat(9, 0) = x
        mat(9, 1) = y

        '11
        x = ancho / 28 * 17
        y = alto / 20 * 18
        mat(10, 0) = x
        mat(10, 1) = y

        '12
        x = ancho / 28 * 3
        y = alto / 20 * 6
        mat(11, 0) = x
        mat(11, 1) = y

        '13
        x = ancho / 28 * 25
        y = alto / 20 * 6
        mat(12, 0) = x
        mat(12, 1) = y

        '14
        x = ancho / 28 * 9
        y = alto / 20 * 3
        mat(13, 0) = x
        mat(13, 1) = y

        '15
        x = ancho / 28 * 19
        y = alto / 20 * 3
        mat(14, 0) = x
        mat(14, 1) = y
        Return mat
    End Function
End Class
